#!/usr/bin/wish

#load /usr/lib64/libtk8.4.so
#package require Tk



wm title . "Canvas test"
canvas .c -width 400 -height 300


#pack .scroll -side right -fill y
pack .c -side left -fill both

.c addtag point withtag [.c create oval 96 96 104 104 -width 1 -outline black -fill SkyBlue2]
.c bind point <Any-Enter> ".c itemconfig current -fill red"
.c bind point <Any-Leave> ".c itemconfig current -fil SkyBlue2"

#catch { destroy . }
